home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / System 7.0 Samples / UserStartup•SampleCode < prev    next >
Encoding:
Text File  |  1994-11-18  |  908 b   |  32 lines  |  [TEXT/MPS ]
  1. # Find Sample Code folder
  2.  
  3. If  ¬ "{__SampleFolder__}" && "`Exists "{ShellDirectory}"SampleCodeFolder`" 
  4.     Set __SampleFolder__     "`Catenate "{ShellDirectory}"SampleCodeFolder`"
  5. End
  6.  
  7. If ¬ "`Exists "{ShellDirectory}"SampleCodeFolder`" || ¬ "`Exists "{__SampleFolder__}"`"
  8.     Set exit 0
  9.     Set temp "{Boot}"
  10.     Loop;
  11.         Set temp "`(GetFileName "{temp}" -q -d -m "Locate ∂"Sample Code∂" folder?")≥dev:null`"
  12.         If "{temp}"!=""
  13.             Echo -n "{temp}" > "{ShellDirectory}"SampleCodeFolder
  14.             Set __SampleFolder__ "{temp}"
  15.             Break
  16.         Else
  17.             Exit
  18.         End
  19.     End
  20. End
  21.  
  22. Set __SampleFolder__     "`Catenate "{ShellDirectory}"SampleCodeFolder`"
  23. Export __SampleFolder__
  24.  
  25. Set __MSC__ "{__SampleFolder__}Macintosh Sample Code:"
  26. Set __S7S__ "{__SampleFolder__}System 7.0 Samples:"
  27. Set __Snippets__ "{__SampleFolder__}Snippets:"
  28. Set __UKS__ "{__SampleFolder__}UK.DTS Sample Code:"
  29.     Export __SampleFolder__ __Snippets__ __S7S__ __MSC__ __UKS__
  30.  
  31.  
  32.